FMS Explorer Vision Control

Using the Vision Control

Vision control icon Use the Vision control to display a CygNet Vision screen through FMS Explorer (32-bit version only). You can select any previously constructed CygNet Vision screen and display it through the FMS Vision control, to view SCADA or other data alongside your measurement data. You can create up to eight instances of this control.

CygNet Vision screens are created using CygNet Studio, and must exist in your system before they can be viewed from the FMS Explorer Vision control. You cannot create the screens through FMS Explorer. See CygNet Studio for more information about creating screens.

Note: Currently, CygNet Vision hyperlinks are not supported in FMS Explorer. All other CygNet Vision functionality is available.

The Chooser and Options panes are not necessary for this control.

See FMS Explorer User Interface for more information about the FMS Explorer user interface.

Viewing a CygNet Vision Screen

The Vision screen embedded in the FMS Explorer Vision control is set to use the Session settings, if applicable. The control can be scripted so that it will be updated when the Session Node, Session Options, or Site.Service are changed. See Scripting for more information.

To View a CygNet Vision Screen Using FMS Explorer

In FMS Explorer, open the Controls menu, and then click Vision to access the Select File System dialog box.
Select a file system and then click OK to access the Open dialog box.
Browse to a desired CygNet Vision screen file location, click to select it, and then click OK. The selected screen will open in your Vision control.

Dictionary Objects

The following dictionary objects are defined for the Vision control.

FMS Dictionary Object	Description
FmsSessionNodeTag	Returns the Session Node tag
FmsSessionNodeFacilityTag	Returns the Session Node facility tag
FmsSessionNodeName	Returns the Session Node name
FmsSessionNodeDescription	Returns the Session Node description
FmsSessionBeginDate	Returns the Session begin date
FmsSessionEndDate	Returns the Session end date
FmsSessionDateFormat	Returns the Session date/time format Possible values are as follows. 0 = Device 1 = Contract 2 = Local
FmsSiteService	Returns the FMS Site.Service

Custom Events

When changes are made to the Site.Service, Session Node, or Session Options, a corresponding custom event occurs, as described in the following table. The CygNet Studio screen can be scripted to utilize the updated dictionary object values, so that updated data will appear on your CygNet Vision screen(s) in FMS Explorer.

FMS Custom Event	Description
OnFmsSiteServiceChange	This event will be thrown when the Site.Service changes
OnFmsSessionNodeChange	This event will be thrown when the Session Node changes
OnFmsSessionOptionsChange	This event will be thrown when the Session Option/s change

CygNet Studio Screen Script Example

Copy

CygNet Studio Screen Script

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub TheView_EventCustom(EventID, Data, ViewID)
Dim This : Set This = TheView
    Dim strMsg
    Select Case EventID
        Case "OnFmsSiteServiceChange"
            strMsg = "OnFmsSiteServiceChange Event" & Vbcr
            strMsg = strMsg & "SiteService:" & CStr(Dictionary.Value("FmsSiteService"))
            MsgBox strMsg
        Case "OnFmsSessionNodeChange"
            strMsg = "OnFmsSessionNodeChange Event" & Vbcr
            strMsg = strMsg & "Session node tag:" & CStr(Dictionary.Value("FmsSessionNodeTag")) & Vbcr
            strMsg = strMsg & "Session node name:" & CStr(Dictionary.Value("FmsSessionNodeName")) & Vbcr
            strMsg = strMsg & "Session node description:" & CStr(Dictionary.Value("FmsSessionNodeDescription")) & Vbcr
            strMsg = strMsg & "Session node facilty tag:" & CStr(Dictionary.Value("FmsSessionNodeFacilityTag"))
            MsgBox strMsg
        Case "OnFmsSessionOptionsChange"
            strMsg = "OnFmsSessionOptionsChange Event" & Vbcr
            strMsg = strMsg & "Session begin date:" & CStr(Dictionary.Value("FmsSessionBeginDate")) & Vbcr
            strMsg = strMsg & "Session end date:" & CStr(Dictionary.Value("FmsSessionEndDate")) & Vbcr
            strMsg = strMsg & "Session date format:" & CStr(Dictionary.Value("FmsSessionDateFormat"))
            MsgBox strMsg
    End Select
End Sub